00100		SUBROUTINE CMBN
00200		COMMON /RC/MCLEF(200),IST(4000)
00300		COMMON /FL/NX,N,L,M,NM,J,NT
00400		DIMENSION IP(10),NMS(10),NF(2500)
00500		EQUIVALENCE (IP,IST(3001)),(NMS,IST(3020)),(NF,IST(201))
00550	C *****   ******   ****   ******              ↑ 20 FOR OVERRUN IN IP(11) AT 119
00600	C  USE FILE NAMES CLFX, DRAW1 AND DRAW2.  400 WD LIMIT PER FILE.
00610		IF(N.EQ.'S')GO TO 103
00700	102	TYPE 1
00800	1	FORMAT(' TYPE OUTPUT FILE NAME ',$)
00900	10	FORMAT(A5)
00910		DO 122 K=1,10
00955	122	NMS(K)=' '
01000		ACCEPT 10,NM
01050		IF(NM.EQ.' ')NM=LASTNM
01060		LASTNM=NM
01100		IF(LOOKD(NM).EQ.0)GO TO 100
01110		IF(N.NE.'C')GO TO 103
01120	C  FOR ADDING TO COMBINED FILE.
01200		TYPE 101,NM
01300		ACCEPT 10,NX
01400		IF(NX.EQ.'N')GO TO 102
01410	100	IF(N.EQ.'C')GO TO 104
01420		TYPE 52
01430		GO TO 102
01600	104	NX=0
01700		IP(1)=1
01800		L=1
01900		J=1
02000		I=0
02100	30	TYPE 41
02200	41	FORMAT(' TYPE FILE NAME ',$)
02300		ACCEPT 10,NW
02400		IF(NW.EQ.' ')GO TO 8
02500		IF(LOOKD(NW))GO TO 51
02600		TYPE 52
02700		GO TO 30
02800	52	FORMAT(' FILE NOT FOUND'/)
02900	51	I=I+1
03000		NMS(I)=NW
03100		CALL IFILE(20,NW)
03200		IP(L)=J
03300		READ(20,5)M,M,M,M
03400	50	READ(20,5)M,M,(MCLEF(K),K=J,J+M-1)
03500		NX=NX+MCLEF(J)
03600		IF(NX.LT.M)M=NX
03700	7	J=J+M
03800		READ(20,5,END=62)M,M,(MCLEF(K),K=J,J+M-1)
03850		IF(M)GO TO 62
03900		GO TO 7
04500	62	J=NX+1
04600		L=L+1
04700		IF(L.LT.11)GO TO 30
04800	CC	GO TO 80
04900	101	FORMAT(' WRITE OVER ',A5,'.DAT?  Y OR N?  ',$)
04910	8	CALL OFILE(1,NM)
05000		IP(L)=NX+1
05010		NX=NX-1
05100		IF(L.EQ.10)GO TO 80
05200		DO 81 K=L+1,10
05300	81	IP(K)=0
05400	80	WRITE(1,9)IP
05500		J=1
05600		NT=0
05700	14	CALL SAVE(MCLEF(J))
05800		NT=NT+MCLEF(J)+1
05900	11	IF(NT.GT.NX)GO TO 4
05910		J=NT
05920		NT=NT-1
05930		GO TO 14
06300	6	FORMAT(' 9999 ',10A5)
06400	4	WRITE (1,6),NMS
06500		RETURN
07000	9	FORMAT(' 9999 ',10I6)
07200	5	FORMAT(12I)
07210	
07220	1103	TYPE 1104,ID
07230	1104	FORMAT(' FILE FULL -- SAVED AS ',A5)
07240		L=1
07250		NX=MCLEF(1)
07260		GO TO 8
07300	
07400	103	CALL IFILE(20,NM)
07500		READ(20,5)K,IP
07600		NX=1
07700	105	READ(20,5,END=106)K,K,(NF(L),L=NX,NX+K-1)
07800		REREAD 107,L,NMS
07850		IF(NMS(1))GO TO 106
07900		NX=NX+K
08000		GO TO 105
08100	107	FORMAT(I,10A5)
08200	106	TYPE 108,NMS
08300	108	FORMAT(' IDENT. NAMES:'/,10(2XA5))
08310		IF(N.EQ.'S')RETURN
08355	C  JUST PRINTS OUT NAMES
08400		TYPE 109
08500	109	FORMAT(' TYPE ID NAME -- ',$)
08600		ACCEPT 209,ID
08700	209	FORMAT(A5)
08800		JD=0
08820		L=0
08840		NX=NX-1
08900		DO 110 K=1,10
09000		IF(NMS(K).EQ.ID)JD=K
09100		IF(NMS(K).EQ.' ')GO TO 112
09105		L=K
09110	110	IF(JD.EQ.0.AND.K.EQ.10)GO TO 1103
09210	112	IF(N.EQ.'Z')GO TO 127
09230	C  FOR DELETIONS
09250		L=L+1
09300		IF(JD.NE.0)GO TO 111
09310	C ADDS ON TO END
09500		N=0
09600		DO 113 K=NX+1,MCLEF(1)+NX
09700		N=N+1
09800	113	NF(K)=MCLEF(N)
09900		NX=NX+N
10000		NMS(L)=ID
10010		L=L+1
10100	114	DO 115 K=1,NX
10200	115	MCLEF(K)=NF(K)
10300	C MOVES IT ALL TO MCLEF
10400		GO TO 8
10500	
10600	127	MCLEF(1)=0
10700	111	N=IP(JD)
10800		NR=MCLEF(1)
10900		M=NF(IP(JD))
11000		NW=NR-M
11010		NX=NX+NW
11020		IF(NW)201,120,203
11030	201	JA=N+NR
11040		JB=NX
11050		JC=1
11060		GO TO 204
11070	203	JA=NX
11080		JB=N+NW
11090		JC=-1
11100	204	DO 121 K=JA,JB,JC
11110	121	NF(K)=NF(K-NW)
11120		IF(NR.EQ.0)GO TO 126
11200	120	DO 117 K=1,NR
11300		NF(N)=MCLEF(K)
11400	117	N=N+1 
11410	CC	L=L-1
11420		IF(NW.EQ.0)GO TO 114
12000		DO 119 K=JD+1,L
12100	119	IP(K)=IP(K)+NW
12200	C  FIXES UP FIRST LINE.
12220	CC123	L=L-1
12260	CC	NX=NX-1
12300		GO TO 114
12400	126	IP(L+1)=0
12410	CC	L=L-1
12420		DO 124 K=JD,L-1
12440		IP(K)=IP(K+1)+NW
12460	124	NMS(K)=NMS(K+1)
12470		NMS(L)=' '
12480		GO TO 114
12900		END
13000	
13100		SUBROUTINE ITEM
13270		COMMON /FL/JT,N,L,M,NM,J,NT
13300		I=N
13400		N='S'
13450	C  S=SEE
13460		TYPE 1
13480	1	FORMAT(
13490		1'  0      1      2      3      4      5      6      7
13495		1      8      9')
13500		CALL CMBN
13600		N=I
13700		END